/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_09 / converters / scr_convt

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 20 f4 20 3e | 20 53 63 72 5f 43 6f 6e |.... . >| Scr_Con|
|00000010| 76 74 0d 00 14 35 20 f4 | 20 43 6f 70 79 72 69 67 |vt...5 .| Copyrig|
|00000020| 68 74 20 3a 20 47 77 79 | 6e 65 74 68 20 50 65 74 |ht : Gwy|neth Pet|
|00000030| 74 69 74 20 28 41 63 61 | 64 65 6d 69 63 20 53 6f |tit (Aca|demic So|
|00000040| 66 74 77 61 72 65 29 0d | 00 1e 13 20 f4 20 33 20 |ftware).|... . 3 |
|00000050| 41 70 72 69 6c 20 31 39 | 38 38 0d 00 28 0e 20 ee |April 19|88..(. .|
|00000060| 20 85 20 d9 23 30 3a e0 | 0d 00 32 1c 20 de 20 62 | . .#0:.|..2. . b|
|00000070| 75 66 66 65 72 25 20 36 | 34 30 2c 20 6d 61 73 6b |uffer% 6|40, mask|
|00000080| 25 28 37 29 0d 00 3c 07 | 20 eb 30 0d 00 46 0c 20 |%(7)..<.| .0..F. |
|00000090| f2 73 65 74 5f 75 70 0d | 00 50 11 20 f2 63 68 61 |.set_up.|.P. .cha|
|000000a0| 6e 67 65 5f 64 75 6d 70 | 0d 00 5a 08 20 d9 23 30 |nge_dump|..Z. .#0|
|000000b0| 0d 00 64 0c 20 eb 20 6d | 6f 64 65 25 0d 00 6e 3f |..d. . m|ode%..n?|
|000000c0| 20 f4 20 43 68 61 6e 67 | 65 20 63 6f 6c 6f 75 72 | . Chang|e colour|
|000000d0| 73 20 62 79 20 56 44 55 | 31 39 73 20 68 65 72 65 |s by VDU|19s here|
|000000e0| 20 69 66 20 72 65 71 75 | 69 72 65 64 20 2d 20 66 | if requ|ired - f|
|000000f0| 6f 72 20 65 78 61 6d 70 | 6c 65 2c 0d 00 78 2d 20 |or examp|le,..x- |
|00000100| e7 6d 6f 64 65 25 3d 34 | 20 84 6d 6f 64 65 25 3d |.mode%=4| .mode%=|
|00000110| 30 20 ef 31 39 2c 30 2c | 37 2c 30 3b 30 2c 31 39 |0 .19,0,|7,0;0,19|
|00000120| 2c 31 2c 31 2c 30 3b 30 | 0d 00 82 3c 20 f4 20 54 |,1,1,0;0|...< . T|
|00000130| 68 69 73 20 63 68 61 6e | 67 65 73 20 77 68 69 74 |his chan|ges whit|
|00000140| 65 20 6f 6e 20 62 6c 61 | 63 6b 20 28 64 65 66 61 |e on bla|ck (defa|
|00000150| 75 6c 74 29 20 74 6f 20 | 72 65 64 20 6f 6e 20 77 |ult) to |red on w|
|00000160| 68 69 74 65 0d 00 8c 1e | 20 ff 28 22 4c 4f 41 44 |hite....| .("LOAD|
|00000170| 20 22 2b 6e 65 77 66 69 | 6c 65 24 2b 61 64 64 72 | "+newfi|le$+addr|
|00000180| 24 29 0d 00 96 1e 20 ff | 28 22 53 43 52 45 45 4e |$).... .|("SCREEN|
|00000190| 53 41 56 45 20 22 2b 6e | 65 77 66 69 6c 65 24 29 |SAVE "+n|ewfile$)|
|000001a0| 0d 00 a0 0c 20 eb 20 6d | 6f 64 65 25 0d 00 aa 1e |.... . m|ode%....|
|000001b0| 20 ff 28 22 53 43 52 45 | 45 4e 4c 4f 41 44 20 22 | .("SCRE|ENLOAD "|
|000001c0| 2b 6e 65 77 66 69 6c 65 | 24 29 0d 00 b4 06 20 e0 |+newfile|$).... .|
|000001d0| 0d 00 b9 05 3a 0d 00 be | 0d 20 dd f2 73 65 74 5f |....:...|. ..set_|
|000001e0| 75 70 0d 00 c8 15 20 21 | 26 38 30 3d 31 34 39 3a |up.... !|&80=149:|
|000001f0| 21 26 38 34 3d 2d 31 0d | 00 d2 12 20 c8 99 20 34 |!&84=-1.|... .. 4|
|00000200| 39 2c 26 38 30 2c 26 38 | 38 0d 00 dc 13 20 61 64 |9,&80,&8|8.... ad|
|00000210| 64 72 24 3d c3 7e 28 21 | 26 38 38 29 0d 00 e6 0e |dr$=.~(!|&88)....|
|00000220| 20 f2 67 65 74 5f 66 69 | 6c 65 0d 00 f0 06 20 f5 | .get_fi|le.... .|
|00000230| 0d 00 fa 53 20 f1 8a 35 | 2c 31 30 29 3b 89 35 35 |...S ..5|,10);.55|
|00000240| 8a 35 2c 31 30 29 3b 3a | e8 22 49 6e 20 77 68 69 |.5,10);:|."In whi|
|00000250| 63 68 20 6d 6f 64 65 20 | 77 61 73 20 69 74 20 72 |ch mode |was it r|
|00000260| 65 63 6f 72 64 65 64 20 | 28 30 2c 31 2c 32 2c 34 |ecorded |(0,1,2,4|
|00000270| 20 6f 72 20 35 20 6f 6e | 6c 79 29 20 22 2c 6d 6f | or 5 on|ly) ",mo|
|00000280| 64 65 25 0d 01 04 20 20 | fd 6d 6f 64 65 25 3e 3d |de%...  |.mode%>=|
|00000290| 30 80 6d 6f 64 65 25 3c | 3d 35 80 6d 6f 64 65 25 |0.mode%<|=5.mode%|
|000002a0| 3c 3e 33 0d 01 0e 25 20 | 62 79 74 65 73 5f 70 65 |<>3...% |bytes_pe|
|000002b0| 72 5f 6c 69 6e 65 25 3d | 32 30 2a 32 5e 28 32 2d |r_line%=|20*2^(2-|
|000002c0| 6d 6f 64 65 25 81 34 29 | 0d 01 18 23 20 6e 6f 5f |mode%.4)|...# no_|
|000002d0| 6f 66 5f 62 79 74 65 73 | 25 3d 38 2a 62 79 74 65 |of_bytes|%=8*byte|
|000002e0| 73 5f 70 65 72 5f 6c 69 | 6e 65 25 0d 01 22 26 20 |s_per_li|ne%.."& |
|000002f0| 6c 65 6e 67 74 68 5f 6f | 66 5f 73 63 72 65 65 6e |length_o|f_screen|
|00000300| 25 3d 33 32 2a 6e 6f 5f | 6f 66 5f 62 79 74 65 73 |%=32*no_|of_bytes|
|00000310| 25 0d 01 2c 6f 20 e7 28 | 6d 6f 64 65 25 3d 30 84 |%..,o .(|mode%=0.|
|00000320| 6d 6f 64 65 25 3d 34 29 | 20 6d 61 73 6b 25 28 30 |mode%=4)| mask%(0|
|00000330| 29 3d 30 3a 6d 61 73 6b | 25 28 31 29 3d 31 3a 6d |)=0:mask|%(1)=1:m|
|00000340| 61 73 6b 25 28 32 29 3d | 32 3a 6d 61 73 6b 25 28 |ask%(2)=|2:mask%(|
|00000350| 33 29 3d 33 3a 6d 61 73 | 6b 25 28 34 29 3d 34 3a |3)=3:mas|k%(4)=4:|
|00000360| 6d 61 73 6b 25 28 35 29 | 3d 35 3a 6d 61 73 6b 25 |mask%(5)|=5:mask%|
|00000370| 28 36 29 3d 36 3a 6d 61 | 73 6b 25 28 37 29 3d 37 |(6)=6:ma|sk%(7)=7|
|00000380| 0d 01 36 6f 20 e7 28 6d | 6f 64 65 25 3d 31 84 6d |..6o .(m|ode%=1.m|
|00000390| 6f 64 65 25 3d 35 29 20 | 6d 61 73 6b 25 28 30 29 |ode%=5) |mask%(0)|
|000003a0| 3d 34 3a 6d 61 73 6b 25 | 28 31 29 3d 30 3a 6d 61 |=4:mask%|(1)=0:ma|
|000003b0| 73 6b 25 28 32 29 3d 35 | 3a 6d 61 73 6b 25 28 33 |sk%(2)=5|:mask%(3|
|000003c0| 29 3d 31 3a 6d 61 73 6b | 25 28 34 29 3d 36 3a 6d |)=1:mask|%(4)=6:m|
|000003d0| 61 73 6b 25 28 35 29 3d | 32 3a 6d 61 73 6b 25 28 |ask%(5)=|2:mask%(|
|000003e0| 36 29 3d 37 3a 6d 61 73 | 6b 25 28 37 29 3d 33 0d |6)=7:mas|k%(7)=3.|
|000003f0| 01 40 65 20 e7 6d 6f 64 | 65 25 3d 32 20 6d 61 73 |.@e .mod|e%=2 mas|
|00000400| 6b 25 28 30 29 3d 36 3a | 6d 61 73 6b 25 28 31 29 |k%(0)=6:|mask%(1)|
|00000410| 3d 34 3a 6d 61 73 6b 25 | 28 32 29 3d 32 3a 6d 61 |=4:mask%|(2)=2:ma|
|00000420| 73 6b 25 28 33 29 3d 30 | 3a 6d 61 73 6b 25 28 34 |sk%(3)=0|:mask%(4|
|00000430| 29 3d 37 3a 6d 61 73 6b | 25 28 35 29 3d 35 3a 6d |)=7:mask|%(5)=5:m|
|00000440| 61 73 6b 25 28 36 29 3d | 33 3a 6d 61 73 6b 25 28 |ask%(6)=|3:mask%(|
|00000450| 37 29 3d 31 0d 01 4a 06 | 20 e1 0d 01 4f 05 3a 0d |7)=1..J.| ...O.:.|
|00000460| 01 54 0f 20 dd f2 67 65 | 74 5f 66 69 6c 65 0d 01 |.T. ..ge|t_file..|
|00000470| 5e 06 20 f5 0d 01 68 39 | 20 f5 3a db 3a f1 8a 38 |^. ...h9| .:.:..8|
|00000480| 2c 32 29 22 53 20 43 20 | 52 20 45 20 45 20 4e 20 |,2)"S C |R E E N |
|00000490| 44 20 55 20 4d 20 50 20 | 20 20 20 43 20 4f 20 4e |D U M P |   C O N|
|000004a0| 20 56 20 45 20 52 20 54 | 20 45 20 52 22 0d 01 72 | V E R T| E R"..r|
|000004b0| 43 20 f1 8a 35 2c 35 29 | 3b 3a e8 22 47 69 76 65 |C ..5,5)|;:."Give|
|000004c0| 20 6e 61 6d 65 20 6f 66 | 20 42 42 43 20 73 63 72 | name of| BBC scr|
|000004d0| 65 65 6e 20 64 75 6d 70 | 20 74 6f 20 62 65 20 63 |een dump| to be c|
|000004e0| 6f 6e 76 65 72 74 65 64 | 20 22 2c 66 69 6c 65 24 |onverted| ",file$|
|000004f0| 0d 01 7c 0f 20 fd 66 69 | 6c 65 24 3c 3e 22 22 0d |..|. .fi|le$<>"".|
|00000500| 01 86 10 20 46 25 3d 8e | 28 66 69 6c 65 24 29 0d |... F%=.|(file$).|
|00000510| 01 90 0b 20 fd 20 46 25 | 3e 30 0d 01 9a 1a 20 6e |... . F%|>0.... n|
|00000520| 65 77 66 69 6c 65 24 3d | 66 69 6c 65 24 2b 22 41 |ewfile$=|file$+"A|
|00000530| 52 43 20 22 0d 01 a4 3e | 20 f1 8a 35 2c 37 29 22 |RC "...>| ..5,7)"|
|00000540| 59 6f 75 72 20 41 52 43 | 48 49 4d 45 44 45 53 20 |Your ARC|HIMEDES |
|00000550| 73 63 72 65 65 6e 20 69 | 73 20 62 65 69 6e 67 20 |screen i|s being |
|00000560| 73 61 76 65 64 20 61 73 | 20 22 6e 65 77 66 69 6c |saved as| "newfil|
|00000570| 65 24 0d 01 ae 13 20 4e | 25 3d ae 28 6e 65 77 66 |e$.... N|%=.(newf|
|00000580| 69 6c 65 24 29 0d 01 b8 | 06 20 e1 0d 01 bd 05 3a |ile$)...|. .....:|
|00000590| 0d 01 c2 12 20 dd f2 63 | 68 61 6e 67 65 5f 64 75 |.... ..c|hange_du|
|000005a0| 6d 70 0d 01 cc 1c 20 f1 | 20 8a 35 2c 31 35 29 c4 |mp.... .| .5,15).|
|000005b0| 33 32 2c 22 2d 22 29 8a | 35 2c 31 35 29 3b 0d 01 |32,"-").|5,15);..|
|000005c0| d6 30 20 e3 20 53 25 3d | 30 20 b8 20 6c 65 6e 67 |.0 . S%=|0 . leng|
|000005d0| 74 68 5f 6f 66 5f 73 63 | 72 65 65 6e 25 2d 31 20 |th_of_sc|reen%-1 |
|000005e0| 88 20 6e 6f 5f 6f 66 5f | 62 79 74 65 73 25 0d 01 |. no_of_|bytes%..|
|000005f0| e0 15 20 73 74 61 72 74 | 25 20 3d 20 62 75 66 66 |.. start|% = buff|
|00000600| 65 72 25 0d 01 ea 12 20 | f2 63 68 61 6e 67 65 5f |er%.... |.change_|
|00000610| 6c 69 6e 65 73 0d 01 f4 | 09 20 ed 20 53 25 0d 01 |lines...|. . S%..|
|00000620| fe 06 20 e1 0d 02 03 05 | 3a 0d 02 08 13 20 dd f2 |.. .....|:.... ..|
|00000630| 63 68 61 6e 67 65 5f 6c | 69 6e 65 73 0d 02 12 0a |change_l|ines....|
|00000640| 20 f1 22 2b 22 3b 0d 02 | 1c 1c 20 e3 20 42 25 3d | ."+";..|.. . B%=|
|00000650| 30 20 b8 20 6e 6f 5f 6f | 66 5f 62 79 74 65 73 25 |0 . no_o|f_bytes%|
|00000660| 2d 31 0d 02 26 16 20 3f | 28 73 74 61 72 74 25 2b |-1..&. ?|(start%+|
|00000670| 42 25 29 3d 9a 23 46 25 | 0d 02 30 09 20 ed 20 42 |B%)=.#F%|..0. . B|
|00000680| 25 0d 02 3a 0f 20 e3 20 | 4c 25 3d 30 20 b8 20 37 |%..:. . |L%=0 . 7|
|00000690| 0d 02 44 1f 20 e3 20 42 | 25 3d 30 20 b8 20 62 79 |..D. . B|%=0 . by|
|000006a0| 74 65 73 5f 70 65 72 5f | 6c 69 6e 65 25 2d 31 0d |tes_per_|line%-1.|
|000006b0| 02 4e 20 20 6f 6c 64 5f | 62 79 74 65 25 3d 3f 28 |.N  old_|byte%=?(|
|000006c0| 73 74 61 72 74 25 2b 42 | 25 2a 38 2b 4c 25 29 0d |start%+B|%*8+L%).|
|000006d0| 02 58 0f 20 f2 66 6f 72 | 6d 5f 62 79 74 65 0d 02 |.X. .for|m_byte..|
|000006e0| 62 65 20 e7 6d 6f 64 65 | 25 3d 32 20 6e 69 62 62 |be .mode|%=2 nibb|
|000006f0| 6c 65 31 25 3d 62 79 74 | 65 25 83 31 36 3a 6e 69 |le1%=byt|e%.16:ni|
|00000700| 62 62 6c 65 32 25 3d 62 | 79 74 65 25 81 31 36 3a |bble2%=b|yte%.16:|
|00000710| d5 23 4e 25 2c 6e 69 62 | 62 6c 65 31 25 2a 31 36 |.#N%,nib|ble1%*16|
|00000720| 2b 6e 69 62 62 6c 65 31 | 25 3a d5 23 4e 25 2c 6e |+nibble1|%:.#N%,n|
|00000730| 69 62 62 6c 65 32 25 2a | 31 36 2b 6e 69 62 62 6c |ibble2%*|16+nibbl|
|00000740| 65 32 25 0d 02 6c a9 20 | e7 6d 6f 64 65 25 3e 33 |e2%..l. |.mode%>3|
|00000750| 20 70 61 69 72 31 25 3d | 62 79 74 65 25 81 36 34 | pair1%=|byte%.64|
|00000760| 3a 70 61 69 72 32 25 3d | 28 62 79 74 65 25 83 36 |:pair2%=|(byte%.6|
|00000770| 34 29 81 31 36 3a 70 61 | 69 72 33 25 3d 28 62 79 |4).16:pa|ir3%=(by|
|00000780| 74 65 25 83 31 36 29 81 | 34 3a 70 61 69 72 34 25 |te%.16).|4:pair4%|
|00000790| 3d 28 62 79 74 65 25 83 | 34 29 3a d5 23 4e 25 2c |=(byte%.|4):.#N%,|
|000007a0| 70 61 69 72 33 25 2a 36 | 34 2b 70 61 69 72 33 25 |pair3%*6|4+pair3%|
|000007b0| 2a 31 36 2b 70 61 69 72 | 34 25 2a 34 2b 70 61 69 |*16+pair|4%*4+pai|
|000007c0| 72 34 25 3a d5 23 4e 25 | 2c 70 61 69 72 31 25 2a |r4%:.#N%|,pair1%*|
|000007d0| 36 34 2b 70 61 69 72 31 | 25 2a 31 36 2b 70 61 69 |64+pair1|%*16+pai|
|000007e0| 72 32 25 2a 34 2b 70 61 | 69 72 32 25 0d 02 76 20 |r2%*4+pa|ir2%..v |
|000007f0| 20 e7 6d 6f 64 65 25 3d | 30 84 6d 6f 64 65 25 3d | .mode%=|0.mode%=|
|00000800| 31 20 d5 23 4e 25 2c 62 | 79 74 65 25 0d 02 80 09 |1 .#N%,b|yte%....|
|00000810| 20 ed 20 42 25 0d 02 8a | 09 20 ed 20 4c 25 0d 02 | . B%...|. . L%..|
|00000820| 94 06 20 e1 0d 02 99 05 | 3a 0d 02 9e 10 20 dd f2 |.. .....|:.... ..|
|00000830| 66 6f 72 6d 5f 62 79 74 | 65 0d 02 a8 16 20 62 79 |form_byt|e.... by|
|00000840| 74 65 25 3d 30 3a 6d 61 | 73 6b 25 3d 26 38 30 0d |te%=0:ma|sk%=&80.|
|00000850| 02 b2 0f 20 e3 20 44 25 | 3d 30 20 b8 20 37 0d 02 |... . D%|=0 . 7..|
|00000860| bc 3f 20 62 79 74 65 25 | 3d 62 79 74 65 25 2a 32 |.? byte%|=byte%*2|
|00000870| 3a e7 28 6f 6c 64 5f 62 | 79 74 65 25 80 6d 61 73 |:.(old_b|yte%.mas|
|00000880| 6b 25 3e 3e 28 37 2d 6d | 61 73 6b 25 28 44 25 29 |k%>>(7-m|ask%(D%)|
|00000890| 29 29 3e 30 20 62 79 74 | 65 25 2b 3d 31 0d 02 c6 |))>0 byt|e%+=1...|
|000008a0| 09 20 ed 20 44 25 0d 02 | d0 06 20 e1 0d ff       |. . D%..|.. ...  |
+--------+-------------------------+-------------------------+--------+--------+